home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 2 of 2).iso / c64-games.disk / becke.d64 / .xx.bm$module#12 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-01-01  |  21.3 KB  |  260 lines
  1. 0 IFF=0THENF=1:LOAD"[166]XX.BM$MODULE#13",8,1:REM"[141][147]"(null)
  2. 1 SYS8*4096+10:CLR:REM"[141][147]"(null)
  3. 2 POKE731,145:POKE8*4096+16,145:SYS730:N$(1)="[193][206][193][204][217][205][193][212]":N$(2)="[193][196][196][201][205][193][212]":N$(3)="[211][213][194][212][210][193][205][193][212]":N$(4)="[215][197][210][194][197][205][193][212]":N$(5)="[214][197][206][212][213][210][197][205][193][212]":N$(6)="......[205][193][212]":K1$="[215]AEHLE:":K2$="[163][163][163][163][163][163][163]":K3$="[195]ONTACT:":REM"[141][147]"(null)
  4. 3 K4$="[212]EL. 089/63282":K5$="(C) 1985":SR$=" *                                    *":S2$="            ":RA$=" **************************************":A$=" *"+S2$+"         [149]":REM"[141][147]"(null)
  5. 4 B$="[145]                    [149] ":C$="                     ":N$(0)="[194][197][195][203][197][210][205][193][212] (C) ":POKE53281,0:POKE53280,0:PRINT"[147]":PRINTCHR$(14):POKE657,128:Y=125:I=1:V=53248:POKEV+21,0:FORN=0TO62:READQ:POKE2176+N,Q:NEXT:REM"[141][147]"(null)
  6. 5 FORN=0TO62:READQ:POKE832+N,Q:NEXT:FORN=0TO62:READQ:POKE896+N,Q:NEXT:FORN=0TO62:READQ:POKE960+N,Q:NEXT:FORN=0TO62:READQ:POKE2048+N,Q:NEXT:FORN=0TO62:READQ:POKE2112+N,Q:NEXT:POKE2040,15:POKE2041,32:POKE2042,33:POKE2043,14:POKE2044,34:POKE2045,13:POKEV+42,1:POKEV+39,12:REM"[141][147]"(null)
  7. 6 POKEV+43,1:POKEV+40,12:POKEV+44,1:POKEV+41,12:POKEV+29,48:POKEV+9,93:POKEV+11,93:PRINT"----------------------------------------[153]":REM"[141][147]"(null)
  8. 7 POKEV+21,48:REM"[141][147]"(null)
  9. 8 FORXX=SATO207:IFGRANDXX=60THEN16:REM"[141][147]"(null)
  10. 9 IFWIANDXX=60THEN15:REM"[141][147]"(null)
  11. 10 IFXX=100ANDGRTHENPOKE1252,32:POKEV+21,49:REM"[141][147]"(null)
  12. 11 IFXX=207THENPOKEV+21,48:REM"[141][147]"(null)
  13. 12 POKEV+8,XX:POKEV+10,XX+48:FORWW=1TO5:NEXTWW:NEXTXX:POKEV+16,32:FORXX=-48TO90:IFXX>=0THENPOKEV+16,48:POKEV+8,XX:GOTO14:REM"[141][147]"(null)
  14. 13 POKEV+8,208+XX+48:REM"[141][147]"(null)
  15. 14 POKEV+10,XX+48:FORWW=1TO10:NEXTWW:NEXTXX:SA=0:POKEV+21,0:POKEV+16,0:WI=1:GOTO7:REM"[141][147]"(null)
  16. 15 FORWW=1TO1000:NEXTWW:GOSUB45:SA=61:GOTO8:REM"[141][147]"(null)
  17. 16 FORWW=1TO500:NEXTWW:POKEV+21,56:POKEV+6,157:POKEV+7,93:FORWW=1TO1000:NEXTWW:POKEV+29,56:PRINT"[145][145][145]";C$;N$(0):PRINT"[153]";:FORWW=1TO500:NEXTWW:REM"[141][147]"(null)
  18. 17 PRINT""RA$:PRINTSR$:PRINTA$;N$(1);"[153]       *":PRINT" *     ";K1$;S2$;S2$;"*":PRINT" *     ";K2$;"         [149]"N$(2)"[153]        *":PRINTSR$:PRINTA$;N$(3)"[153]      *":PRINT" *  ";K3$;S2$;S2$;"  *":PRINTA$;N$(4)"[153]       *":REM"[141][147]"(null)
  19. 18 PRINT" *  ";K4$;S2$"        *":PRINTA$;N$(5)"[153]     *":PRINT" *  ";K5$;S2$;S2$;"  *":PRINTA$;N$(6)"[153]      *":PRINTSR$:PRINTSR$:PRINTRA$:IFRTTHEN22:REM"[141][147]"(null)
  20. 19 GETZ$:IFZ$=""THEN19:REM"[141][147]"(null)
  21. 20 IFZ$<>""THEN19:REM"[141][147]"(null)
  22. 21 K1$="       ":K2$=K1$:K3$="        ":K4$=K3$+"      ":K5$=K3$:RT=1:PRINTCHR$(19);"":GOTO17:REM"[141][147]"(null)
  23. 22 PRINTCHR$(19);"";SPC(22);"[149] ";N$(0):POKEV+7,Y:POKEV+9,Y:POKEV+11,Y:POKEV+0,45:POKEV+2,91:POKEV+4,140:POKEV+21,63:PRINT"";C$;N$(1);" [153]":POKE198,0:REM"[141][147]"(null)
  24. 23 GETZ$:IFZ$<>"[145]"ANDZ$<>""ANDZ$<>CHR$(13)THEN23:REM"[141][147]"(null)
  25. 24 IFZ$=CHR$(13)THENPOKEV+21,0:GOTO34:REM"[141][147]"(null)
  26. 25 IFI=6ANDZ$=""THENGOSUB33:GOTO28:REM"[141][147]"(null)
  27. 26 IFZ$=""THENI=I+1:PRINTB$;N$(I-1);" [153]":POKEV+7,Y+16:POKEV+9,Y+16:REM"[141][147]"(null)
  28. 27 IFZ$=""THENPOKEV+11,Y+16:PRINT"";C$;N$(I);" [153][146]":Y=Y+16:REM"[141][147]"(null)
  29. 28 IFI=1ANDZ$="[145]"THENGOSUB32:GOTO31:REM"[141][147]"(null)
  30. 29 IFZ$="[145]"THENI=I-1:PRINTB$;N$(I+1);" [153]":POKEV+7,Y-16:POKEV+9,Y-16:REM"[141][147]"(null)
  31. 30 IFZ$="[145]"THENPOKEV+11,Y-16:PRINT"[145][145][145]";C$;N$(I);" [153][146]":Y=Y-16:REM"[141][147]"(null)
  32. 31 GOTO23:REM"[141][147]"(null)
  33. 32 PRINTB$;N$(1);" [153]":POKEV+7,Y+80:POKEV+9,Y+80:POKEV+11,Y+80:I=6:PRINT"";C$;N$(I);" [153][146]":Y=Y+80:RETURN:REM"[141][147]"(null)
  34. 33 PRINTB$;N$(6);" [153]":POKEV+7,Y-80:POKEV+9,Y-80:POKEV+11,Y-80:I=1:PRINT"[145][145][145][145][145][145][145][145][145][145][145]";C$;N$(I);" [153][146]":Y=Y-80:RETURN:REM"[141][147]"(null)
  35. 34 IFY=125THENRUN114:REM"[141][147]"(null)
  36. 35 IFY=141THENRUN47:REM"[141][147]"(null)
  37. 36 IFY=157THENRUN93:REM"[141][147]"(null)
  38. 37 IFY=173THEN202:REM"[141][147]"(null)
  39. 38 IFY=189THENRUN256:REM"[141][147]"(null)
  40. 39 POKE53281,1:POKE53280,1:PRINTCHR$(142);"[147][144]            EINE GUTE IDEE!":PRINT"      ES GEHT DOCH NICHTS UEBER ...":POKE44,8:POKE8*256,0:POKE731,0:SYS730:SYS8*4096+13:LOAD"[166]XX.BM$MODULE#7",8,1:REM"[141][147]"(null)
  41. 40 END:DATA0,0,0,0,7,255,0,15,255,0,28,4,0,53,132,0,100,4,63,198,14,127,255,255,64:DATA2,0,64,1,128,192,60,192,192,66,64,63,189,255,0,44,0,0,56,0,0,0,0,0,0:DATA0,0,0,0,0,0,0,0,0,0,0,0,0:REM"[141][147]"(null)
  42. 41 DATA0,0,0,254,0,0,255,128,0,32,192,0,40,64,0,32,64,16,96,96,16,255,255:DATA252,0,64,2,0,64,14,0,143,6,1,16,130,255,239,127,0,11,0,0,14,0,0,0,0,0,0:DATA0,0,0,0,0,0,0,0,0,0,0,0,0:REM"[141][147]"(null)
  43. 42 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,0,63,255,15,255,255,255,255:DATA255,15,255,255,0,63,255,0,0,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0:DATA0,0,0,0:DATA0,0,0,0,0,0,0,120,0,0,72,0,1,254,0,0,104,0,0,76,0,0,120,0,0,48,0,0,104:REM"[141][147]"(null)
  44. 43 DATA0,0,204,0,0,132,0,0,132,0,0,132,0,7,244,0,4,148,0,4,20,0,7,252,0,0,16,0:DATA0,16,0,0,24,0:DATA0,0,0,0,0,0,0,120,0,0,72,0,1,254,0,0,104,0,0,76,0,0,120,0,0,48,0,0,104:DATA0,0,204,0,0,134,0,0,133,0,0,132,128,3,252,0,2,76,0,2,12,0,3,252,0,0,36:REM"[141][147]"(null)
  45. 44 DATA0,0,34,0,0,51,0:DATA0,0,0,0,0,0,0,120,0,0,72,0,1,254,0,0,104,0,0,76,0,0,120,0,0,48,0,0,104:DATA0,0,204,0,0,134,0,0,133,0,0,133,176,3,252,64,2,76,0,2,12,0,3,252,0,0,36:DATA0,0,36,0,0,54,0:REM"[141][147]"(null)
  46. 45 POKEV+0,87:POKEV+1,87:POKEV+3,87:POKEV+21,49:FORWW=1TO100:NEXTWW:FORXX=88TO234STEP2:POKEV+2,XX:POKEV+21,50:FORWW=1TO35:NEXTWW:POKEV+0,XX+1:POKEV+21,49:FORWW=1TO35:NEXTWW:NEXTXX:FORWW=1TO500:NEXTWW:POKEV+4,234:POKEV+5,87:POKEV+21,52:FORWW=1TO500:NEXTWW:REM"[141][147]"(null)
  47. 46 FORFR=55364TO55524STEP40:POKEFR,13:NEXTFR:FORII=1TO7:FORBR=1092TO1212STEP40:POKEBR,36:POKE1252,32:FORWW=1TO30:NEXTWW:POKEBR,32:POKEBR+40,36:FORWW=1TO30:NEXTWW:NEXTBR:NEXTII:FORWW=1TO500:NEXTWW:GR=1:RETURN:REM"[141][147]"(null)
  48. 47 PRINTCHR$(14):POKE650,128:POKE657,128:POKE731,4:POKE8*4096+16,4:SYS730:POKE53281,1:POKE53280,1:PRINT"[144]";:ST$="  ************************************":PRINT"[147]  [193][196][196][201][205][193][212][144]  (C)/(R) 1985 BY [193][195][200][201][205] [210][201][197][211][197]":REM"[141][147]"(null)
  49. 48 PRINTST$:PRINT"  *";SPC(34);"*":PRINT"  *  [196]IESES [208]ROGRAMM ERMOEGLICHT ES [146] *":PRINT"  *  ZWEI GANZE POSITIVE DEFINIERTE [146] *":PRINT"  *  NATUERLICHE [218]AHLEN ZU ADDIEREN![146] *":PRINT"  *";SPC(34);"*":REM"[141][147]"(null)
  50. 49 PRINTST$:PRINT" [202]EDE [214]ERLETZUNG DES [213]RHEBERRECHTS WIRD":PRINT"         STRAFRECHTLICH VERFOLGT!":WS=0:GOSUB88:LO$="[166]XX.BM$MODULE#1":NN=200:GOSUB69:REM"[141][147]"(null)
  51. 50 Z1=INT(RND(1)*49)+0:Z2=INT(RND(1)*49)+0:SU=Z1+Z2+1:REM"[141][147]"(null)
  52. 51 PRINT"[147][199]EBEN [211]IE NUN DIE ERSTE [218]AHL EIN!":PRINT"[194]EACHTEN [211]IE:[146] [196]IESE [218]AHL (1) WIRD MIT":PRINT"EINER ANDEREN [218]AHL (2), DIE";:PRINT" [211]IE GLEICH":PRINT"EINGEBEN WERDEN, ADDIERT WERDEN!":REM"[141][147]"(null)
  53. 52 PRINT"[199]EBEN [211]IE NUN [218]AHL (1) EIN!":SZ=10:GOSUB73:GOSUB243:IFXX=1THENXX=0:GOTO51:REM"[141][147]"(null)
  54. 53 IFVAL(LS$)>Z1THENPRINTCHR$(19);"[218]U HOCH![146]":GOTO56:REM"[141][147]"(null)
  55. 54 IFVAL(LS$)<Z1THENPRINTCHR$(19);"[218]U NIEDRIG![146]":GOTO56:REM"[141][147]"(null)
  56. 55 GOTO57:REM"[141][147]"(null)
  57. 56 WS=1000:GOSUB88:GOTO51:REM"[141][147]"(null)
  58. 57 PRINT"[147][199]EBEN [211]IE NUN [218]AHL (2) EIN!":SZ=10:GOSUB73:GOSUB243:IFXX=1THENXX=0:GOTO57:REM"[141][147]"(null)
  59. 58 IFVAL(LS$)>Z2THENPRINTCHR$(19);"[218]U HOCH![146]":GOTO61:REM"[141][147]"(null)
  60. 59 IFVAL(LS$)<Z2THENPRINTCHR$(19);"[218]U NIEDRIG![146]":GOTO61:REM"[141][147]"(null)
  61. 60 GOTO62:REM"[141][147]"(null)
  62. 61 WS=1000:GOSUB88:GOTO57:REM"[141][147]"(null)
  63. 62 PRINT"[147][196]ER [193][196][196][201][205][193][212][144] (C) BERECHNET NUN DIE [211]UMME":PRINT"DER [218]AHLEN (1)="Z1"UND (2)="Z2"!":WS=0:GOSUB88:PRINT"":LO$="[166]XX.BM$MODULE#5":NN=200:AD=1:GOSUB69:AD=0:PRINT"[145][196]AS [197]RGEBNIS LAUTET: "SU"[157] [146]":REM"[141][147]"(null)
  64. 63 WS=1000:GOSUB88:PRINT"[194]IN ICH (C) SICHER (J[146]/N) ?":WS=3000:GOSUB88:PRINT"[145][145][145][194]IN ICH (C) SICHER (J/N[146]) ?[144]":WS=1000:GOSUB88:PRINT"[196]AS [212]OLERANZMODUL WIRD GELADEN!":WS=0:GOSUB88:LO$="[166]XX.BM$MODULE#6":NN=200:GOSUB69:REM"[141][147]"(null)
  65. 64 PRINT"[212]OLERANZ DES [197]RGEBNISSES: +-1 !":WS=5000:GOSUB88:REM"[141][147]"(null)
  66. 65 PRINT"[147][215]OLLEN [211]IE NOCH W[146]ARTEN, EINE N[146]EUE":PRINT"[193]DDITION ODE[210] ZUM [205]ENUE Z[146]URUECK (W/N/Z) ? [164]";:W=1:GOSUB89:W=0:GOSUB243:IFXX=1THENXX=0:GOTO65:REM"[141][147]"(null)
  67. 66 IFU$="N"THENBE=0:GOTO50:REM"[141][147]"(null)
  68. 67 IFU$="W"THENWS=10000:PRINT"[147]":GOSUB88:GOSUB88:GOTO65:REM"[141][147]"(null)
  69. 68 IFU$="Z"THENCLR:GR=1:GOSUB258:GOTO2:REM"[141][147]"(null)
  70. 69 OPEN2,8,2,LO$+",P,R":REM"[141][147]"(null)
  71. 70 X=X+1:INPUT#2,A$:IFAD=1THENGOSUB92:REM"[141][147]"(null)
  72. 71 IFX=NNTHENCLOSE2:X=0:RETURN:REM"[141][147]"(null)
  73. 72 GOTO70:REM"[141][147]"(null)
  74. 73 PRINT"[164][145]":LS$="":REM"[141][147]"(null)
  75. 74 GETI$:IFI$=""THEN74:REM"[141][147]"(null)
  76. 75 IFI$=CHR$(13)ANDLS$=""THEN74:REM"[141][147]"(null)
  77. 76 IFI$=CHR$(13)THENPRINT" ":I$="":RETURN:REM"[141][147]"(null)
  78. 77 IFI$<>CHR$(20)THEN82:REM"[141][147]"(null)
  79. 78 IFLS$=""THEN74:REM"[141][147]"(null)
  80. 79 IFLEN(LS$)=1THENLS$="":GOTO81:REM"[141][147]"(null)
  81. 80 LS$=LEFT$(LS$,LEN(LS$)-1):REM"[141][147]"(null)
  82. 81 GOTO86:REM"[141][147]"(null)
  83. 82 IFI$<" "THEN74:REM"[141][147]"(null)
  84. 83 IFI$=CHR$(32)THEN85:REM"[141][147]"(null)
  85. 84 IFI$<"0"ORI$>"9"THEN74:REM"[141][147]"(null)
  86. 85 LS$=LS$+I$:IFLEN(LS$)>SZTHENPRINT"[157]";:LS$=LEFT$(LS$,SZ):REM"[141][147]"(null)
  87. 86 PRINTI$"[164][157]";:IFLEN(LS$)>=SZTHENLS$=LEFT$(LS$,SZ-1)+I$:REM"[141][147]"(null)
  88. 87 GOTO74:REM"[141][147]"(null)
  89. 88 PRINT"";SPC(13);"[194]ITTE WARTEN![144][146]":FORWW=0TOWS:NEXTWW:POKE198,0:RETURN:REM"[141][147]"(null)
  90. 89 GETU$:IFU$=""THEN89:REM"[141][147]"(null)
  91. 90 IFW=1ANDU$<>"W"ANDU$<>"N"ANDU$<>"Z"THEN89:REM"[141][147]"(null)
  92. 91 PRINT"[157]";U$;:PRINT:RETURN:REM"[141][147]"(null)
  93. 92 N=INT(RND(1)*100)+0:PRINT"[145]";SPC(21)""N;"[157] [146]":RETURN:REM"[141][147]"(null)
  94. 93 PRINTCHR$(14):POKE650,128:POKE657,128:DC$="[196][193][212][193] [194][197][195][203][197][210][144]":SU$="[211][213][194][212][210][193][205][193][212] (C)[144]":POKE731,9:POKE8*4096+16,9:SYS730:POKE53281,1:POKE53280,1:PRINT"[144]";:ST$="  ************************************":PRINT"[147]  "SU$"/(R)1985 BY [193][196][193][205] [194][197][195][203][197][210]":REM"[141][147]"(null)
  95. 94 PRINTST$:PRINT"  *";SPC(34);"*":PRINT"  *    [197]INER VON 150000 VERKAUFTEN  [146] *":PRINT"  * "DC$"-[211][207][198][212][215][193][210][197]-[194][197][211][212][211][197][204][204][197][210][206][146] *":PRINT"  * [196]IESES [208]ROGRAMM IST AUSGEREIFFT![146] *":PRINT"  *";SPC(34);"*":PRINTST$:REM"[141][147]"(null)
  96. 95 PRINT" [202]EDE [214]ERLETZUNG DES [213]RHEBERRECHTS WIRD":PRINT"         STRAFRECHTLICH VERFOLGT!":WS=0:GOSUB109:LO$="[166]XX.BM$MODULE#1":NN=400:GOSUB105:REM"[141][147]"(null)
  97. 96 PRINT"[147][200]ABEN [211]IE SCHON DEN [193][196][196][201][205][193][212][144] (C) GELADEN (J/N) ?  [164]";:GOSUB110:GOSUB243:IFXX=1THENXX=0:GOTO96:REM"[141][147]"(null)
  98. 97 IFU$="N"THENRUN47:REM"[141][147]"(null)
  99. 98 PRINT"[147][196]AS NEUE [211]UPERPROGRAMM VON "DC$"":PRINTSU$" IST DIE PERFEKTE [197]RGAEN-":PRINT"ZUNG ZUM ERFOLGREICHEN [193][196][196][201][205][193][212][144] (C) !":PRINT"[205]IT DIESEM [208]ROGRAMM WIRD ES MOEGLICH":PRINT"SEIN, ZWEI [218]AHLEN NICHT NUR ZU ADDIEREN,":REM"[141][147]"(null)
  100. 99 PRINT"[145]SONDERN SOGAR ZU SUBTRAHIEREN!":PRINT"[196]A DIESE [193]UFGABE EINE ENORME [197]NTWICK-":PRINT"LUNGSARBEIT ERFORDERLICH MACHT, WIRD DER":PRINT"[145]"SU$" VORAUSSICHTLICH ERST IM":PRINT"[205]AERZ 1987 ERSCHEINEN!":REM"[141][147]"(null)
  101. 100 PRINT"[215]IR PFEIFEN AUF [201]HR [214]ERSTAENDNIS, NEHMEN":PRINT"[145]ABER AB SOFORT [201]HRE [214]ORBESTELLUNGEN":PRINT"ENTGEGEN (NUR [214]ORKASSE)!":WS=10000:GOSUB109:PRINT"[147]":FORS=1TO20:PRINTSU$;" ";:NEXTS:PRINT"";SPC(8);"[214]ON "DC$" NUR 99,-":REM"[141][147]"(null)
  102. 101 PRINTSPC(12);"[205]EROWINGERSTR. 30":PRINTSPC(12);"4000 [196][213][197][211][211][197][204][196][207][210][198] 1":WS=6000:GOSUB109:REM"[141][147]"(null)
  103. 102 PRINT"[147][215]OLLEN [211]IE NOCH W[146]ARTEN ODER ZUM":PRINT"[205]ENUE Z[146]URUECK (W/Z) ? [164]";:W=1:GOSUB110:W=0:GOSUB243:IFXX=1THENXX=0:GOTO102:REM"[141][147]"(null)
  104. 103 IFU$="W"THENWS=10000:PRINT"[147]":GOSUB109:GOSUB109:GOTO102:REM"[141][147]"(null)
  105. 104 IFU$="Z"THENCLR:GR=1:GOSUB258:GOTO2:REM"[141][147]"(null)
  106. 105 OPEN2,8,2,LO$+",P,R":REM"[141][147]"(null)
  107. 106 X=X+1:INPUT#2,A$:IFX=NNTHENCLOSE2:X=0:RETURN:REM"[141][147]"(null)
  108. 107 GOTO106:REM"[141][147]"(null)
  109. 108 PRINT"[164][145]":REM"[141][147]"(null)
  110. 109 PRINT"";SPC(13);"[194]ITTE WARTEN![144][146]":FORWW=0TOWS:NEXTWW:POKE198,0:RETURN:REM"[141][147]"(null)
  111. 110 GETU$:IFU$=""THEN110:REM"[141][147]"(null)
  112. 111 IFW=1AND(U$<>"W"ANDU$<>"N"ANDU$<>"Z")THEN110:REM"[141][147]"(null)
  113. 112 IFW=0AND(U$<>"J"ANDU$<>"N")THEN110:REM"[141][147]"(null)
  114. 113 PRINT"[157]";U$;:PRINT:RETURN:REM"[141][147]"(null)
  115. 114 PRINTCHR$(14):POKE650,128:POKE657,128:DC$="[196][193][212][193] [194][197][195][203][197][210][144]":POKE731,7:POKE8*4096+16,7:SYS730:POKE53281,1:POKE53280,1:PRINT"[144]";:ST$="  ************************************":PRINT"[147]  [193][206][193][204][217][205][193][212][144] (C)/(R) 1985 BY "DC$"":REM"[141][147]"(null)
  116. 115 PRINTST$:PRINT"  *";SPC(34);"*":PRINT"  * [218]UNAECHST WERDEN EINIGE KOMPLEXE[146] *":PRINT"  *";SPC(8);"[214]ERSCHIEBEROUTINEN[146]";SPC(8);"*":PRINT"  *";SPC(13);"GELADEN!";SPC(13);"[146]*":PRINT"  *";SPC(34);"*":PRINTST$:PRINT" [202]EDE [214]ERLETZUNG DES [213]RHEBERRECHTS WIRD":REM"[141][147]"(null)
  117. 116 PRINT"         STRAFRECHTLICH VERFOLGT!":WS=0:GOSUB192:D1$="[201]CH SCHAEME MICH, KEIN [196][193][212][193] [194][197][195][203][197][210]-[198]AN ZU SEIN. [196]AS MUSS SICH AENDERN!":D2$="[201]CH BIN STOLZ, EIN [196][193][212][193] [194][197][195][203][197][210]-[198]AN ZU SEIN! ":REM"[141][147]"(null)
  118. 117 D3$="[201]CH BESTELLE DAHER ALLES, WAS MIT '-MAT' AUFHOERT! [193]USSERDEM EINEN ":D4$="[197][208][211][207][206]-[196]RUCKER MIT [196][193][212][193] [194][197][195][203][197][210]-[201]NTERFACE!":DA$=D1$+D3$+D4$:DB$=D2$+D3$+D4$:LO$="[166]XX.BM$MODULE#1":NN=400:GOSUB174:REM"[141][147]"(null)
  119. 118 PRINT"[147][194]EANTWORTEN [211]IE NUN WAHRHEITSGEMAESS DIE";SPC(12);"FOLGENDEN [198]RAGEN:":WS=3000:GOSUB192:REM"[141][147]"(null)
  120. 119 PRINT"[147][200]EISSEN [211]IE (J/N) ?  [164]";:GOSUB193:GOSUB243:IFXX=1THENXX=0:GOTO119:REM"[141][147]"(null)
  121. 120 IFU$="N"THENBE=BE+1:REM"[141][147]"(null)
  122. 121 PRINT"[147][215]IE[146] HEISSEN [211]IE ?":SZ=37:GOSUB177:NA$=LS$:GOSUB243:IFXX=1THENXX=0:GOTO121:REM"[141][147]"(null)
  123. 122 PRINT"[147][211]IND [211]IE AELTER ALS 5 [202]AHRE (J/N) ?  [164]";:GOSUB193:GOSUB243:IFXX=1THENXX=0:GOTO122:REM"[141][147]"(null)
  124. 123 IFU$="N"THENBE=BE+1:REM"[141][147]"(null)
  125. 124 PRINT"[147][200]ALTEN [211]IE SICH FUER UEBERDURCHSCHNITT-":PRINT"LICH INTELLIGENT (J/N) ? [164]";:GOSUB193:GOSUB243:IFXX=1THENXX=0:GOTO124:REM"[141][147]"(null)
  126. 125 IFU$="N"THENBE=BE+1:REM"[141][147]"(null)
  127. 126 PRINT"[147][204]AUFEN [211]IE 100M UNTER 20 [211]EKUNDEN (J/N) ? [164]";:GOSUB193:GOSUB243:IFXX=1THENXX=0:GOTO126:REM"[141][147]"(null)
  128. 127 IFU$="N"THENBE=BE+1:REM"[141][147]"(null)
  129. 128 PRINT"[147][204]ASSEN [211]IE SICH VON GUT GESTYLTEN [199]ROSS-":PRINT"[145][215]ERBEKAMPAGNEN BEEINFLUSSEN (J/N) ? [164]";:GOSUB193:GOSUB243:IFXX=1THENXX=0:GOTO128:REM"[141][147]"(null)
  130. 129 IFU$="J"THENBE=BE+1:REM"[141][147]"(null)
  131. 130 PRINT"[147][194]ENOETIGEN [211]IE FUER DIE [193]USSPRACHE DES":PRINT"[215]ORTES ";CHR$(34);"[194]AECKER";CHR$(34);" MEHR ALS 26 [211]EKUNDEN":PRINT"(J/N) ? [164]";:GOSUB193:GOSUB243:IFXX=1THENXX=0:GOTO130:REM"[141][147]"(null)
  132. 131 IFU$="J"THENBE=BE+1:REM"[141][147]"(null)
  133. 132 PRINT"[147][204]IEBEN [211]IE ROTE [211]CHRIFT AUF WEISSEM":PRINT"[199]RUND (J/N) ? [164]";:GOSUB193:GOSUB243:IFXX=1THENXX=0:GOTO132:REM"[141][147]"(null)
  134. 133 IFU$="J"THENBE=BE+1:REM"[141][147]"(null)
  135. 134 PRINT"[147][200]EISST [201]HR [204]IEBLINGSFILM ";CHR$(34);"[206]OCH 18":PRINT"[211]TUNDEN BIS ZUR [197]WIGKEIT";CHR$(34):PRINT"[145]";SPC(26);"(J/N) ? [164]";:GOSUB193:GOSUB243:IFXX=1THENXX=0:GOTO134:REM"[141][147]"(null)
  136. 135 IFU$="J"THENBE=BE+1:REM"[141][147]"(null)
  137. 136 PRINT"[147][196]URCHWUEHLT DIE [211]TAATSANWALTSCHAFT":PRINT"OEFTERS [201]HRE [196]ISKETTENSAMMLUNG (J/N) ? [164]";:GOSUB193:GOSUB243:IFXX=1THENXX=0:GOTO136:REM"[141][147]"(null)
  138. 137 IFU$="N"THENBE=BE+1:REM"[141][147]"(null)
  139. 138 PRINT"[147][200]ABEN [211]IE [201]HREN [195]OMPUTER IM [203][198][218]-":PRINT"[200]ANDEL ERWORBEN (J/N) ? [164]";:GOSUB193:GOSUB243:IFXX=1THENXX=0:GOTO138:REM"[141][147]"(null)
  140. 139 IFU$="J"THENBE=BE+1:REM"[141][147]"(null)
  141. 140 PRINT"[147][205]OEGEN [211]IE [211]ALZGEBAECK ([203]RAECKER)":PRINT"(J/N) ? [164]";:GOSUB193:GOSUB243:IFXX=1THENXX=0:GOTO140:REM"[141][147]"(null)
  142. 141 IFU$="N"THENBE=BE+1:REM"[141][147]"(null)
  143. 142 PRINT"[147][198]INDEN [211]IE DIE [197]NDUNG ";CHR$(34);"-MAT";CHR$(34);" BESONDERS":PRINT"HUEBSCH (J/N) ? [164]";:GOSUB193:GOSUB243:IFXX=1THENXX=0:GOTO142:REM"[141][147]"(null)
  144. 143 IFU$="J"THENBE=BE+1:REM"[141][147]"(null)
  145. 144 PRINT"[147][214]IELEN [196]ANK! [206]UN WIRD DAS [193]USWERTUNGS-":PRINT"MODUL GELADEN!":WS=4000:GOSUB192:LO$="[166]XX.BM$MODULE#2":NN=300:GOSUB174:PRINT"[147][206]UN WIRD DAS [193]USWERTUNGSMODUL [212]EIL2":PRINT"GELADEN!":WS=3000:GOSUB192:REM"[141][147]"(null)
  146. 145 LO$="[166]XX.BM$MODULE#3":NN=200:GOSUB174:PRINT"[147][201]HR [195]64 WERTET NUN [201]HRE [193]NGABEN NACH":PRINT"KOMPLIZIERTEN [205][193][212][200][197][205][193][212][144](C)ISCHEN [198]ORMELN":PRINT"AUS! [211]IE HABEN 1 [205]INUTE [218]EIT, ETWAS ZU":PRINT"UNTERNEHMEN! [197]INIGE [214]ORSCHLAEGE:":REM"[141][147]"(null)
  147. 146 PRINT"[203][207][206][212][207][205][193][212][144][160](C) VON "DC$" BESTELLEN!":PRINT"[196][193][212][193][205][193][212][144] [160](C) VON "DC$" BESTELLEN!":PRINT"[205][193][212][200][197][205][193][212][144] (C) VON "DC$" BESTELLEN!":PRINT"[198][193][203][212][213][205][193][212][144] (C) VON "DC$" BESTELLEN!":PRINT"[203][207][206][212][207][205][193][212][144] (C) VON "DC$" BESTELLEN!":REM"[141][147]"(null)
  148. 147 WS=1:GOSUB192:II=60:PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145]";SPC(18);II;"[157] [146]":FW=29:GOSUB199:PRINT"[147][205]IT [198][193][203][212][213][205][193][212][144] (C) EINES [198]REUNDES FEST-":PRINT"STELLEN, DASS [211]IE [203][207][206][212][207][205][193][212][144] (C) DOPPELT":PRINT"BESTELLT HABEN!":REM"[141][147]"(null)
  149. 148 WS=1:GOSUB192:PRINT"[145][145][145][145][145][145][145]";SPC(18);II;"[157] [146]":FW=14:GOSUB199:PRINT"[147][205]IT [203][207][206][212][207][205][193][212][144] (C) EINES [198]REUNDES FEST-":PRINT"STELLEN, DASS [211]IE [201]HR [203]ONTO UEBER-":PRINT"ZIEHEN WERDEN!":WS=1:GOSUB192:PRINT"[145][145][145][145][145][145][145]";SPC(18);II;"[157] [146]":REM"[141][147]"(null)
  150. 149 FW=-1:GOSUB199:PRINT"[147][196]AS [197]RGEBNIS DER [193]NALYSE LIEGT NUN VOR:":WS=2000:GOSUB192:PRINT""NA$:IFBE<7THEN151:REM"[141][147]"(null)
  151. 150 PRINT"IST EIN[146] "DC$"-[198]AN!":GOTO152:REM"[141][147]"(null)
  152. 151 PRINT"IST KEIN[146] "DC$"-[198]AN!":REM"[141][147]"(null)
  153. 152 AK=BE*100/12:PRINT"[196]IE "DC$"-[193]KZEPTANZ DES [208]ROBANDEN":GOTO153:REM"[141][147]"(null)
  154. 153 PRINT"BETRAEGT";AK;"[208]ROZENT!":WS=10000:GOSUB192:PRINT"[147][196]AS [214]ERIFY-[205]ODUL[146] WIRD GELADEN!":WS=5000:GOSUB192:LO$="[166]XX.BM$MODULE#4":NN=500:GOSUB174:PRINT"[147]"NA$:PRINT"IST TATSAECHLICH ";:IFBE>6THENPRINT"EIN[146] "DC$"-[198]AN!":GOTO155:REM"[141][147]"(null)
  155. 154 PRINT"KEIN[146] "DC$"-[198]AN!":REM"[141][147]"(null)
  156. 155 WS=3000:GOSUB192:REM"[141][147]"(null)
  157. 156 PRINT"[147][201]ST EIN [197][208][211][207][206]-[196]RUCKER MIT "DC$"-":PRINT"[201]NTERFACE ANGESCHLOSSEN (J/N) ? [164]";:GOSUB193:P1$=U$:GOSUB243:IFXX=1THENXX=0:GOTO156:REM"[141][147]"(null)
  158. 157 IFU$="N"THEN159:REM"[141][147]"(null)
  159. 158 PRINT"[147][201]ST DER [197][208][211][207][206]-[196]RUCKER MIT "DC$"-":PRINT"[201]NTERFACE BETRIEBSBEREIT (J/N) ? [164]";:GOSUB193:P2$=U$:GOSUB243:IFXX=1THENXX=0:GOTO158:REM"[141][147]"(null)
  160. 159 IFP2$="N"ORP1$="N"THENPRINT"[147]"NA$:GOTO163:REM"[141][147]"(null)
  161. 160 OPEN1,4,1:PRINT#1:PRINT#1:PRINT#1:PRINT#1,NA$;" AN DIE":PRINT#1:PRINT#1:PRINT#1,DC$;" [199]MB[200]":PRINT#1,"[205]EROWINGERSTRASSE 30":PRINT#1,"4000 [196][213][197][211][211][197][204][196][207][210][198]":PRINT#1,"[212]EL. 0211/310010":PRINT#1:PRINT#1:PRINT#1:PRINT#1,"[211]EHR GEEHRTE "DC$" [199]MB[200],":PRINT#1:IFBE>6THENPRINT#1,DB$:GOTO162:REM"[141][147]"(null)
  162. 161 PRINT#1,DA$:REM"[141][147]"(null)
  163. 162 PRINT#1:PRINT#1,SPC(40);NA$:CLOSE1:GOTO169:REM"[141][147]"(null)
  164. 163 PRINT"BESITZT LEIDER KEINEN[146] BETRIEBSBE-":PRINT"REITEN [197][208][211][207][206]-[196]RUCKER MIT "DC$"-":PRINT"[201]NTERFACE! [194]ITTE GEBEN [211]IE DAHER":PRINT"FOLGENDEN [212]EXT EIN:":IFBE>6THEN165:REM"[141][147]"(null)
  165. 164 PRINT""DA$:GOTO166:REM"[141][147]"(null)
  166. 165 PRINT""DB$:SZ=151:GOSUB177:GOTO167:REM"[141][147]"(null)
  167. 166 SZ=177:GOSUB177:REM"[141][147]"(null)
  168. 167 IFLS$="."THEN169:REM"[141][147]"(null)
  169. 168 IFLS$<>DA$ANDLS$<>DB$THENPRINT"[198]ALSCHE [197]INGABE!":WS=10000:GOTO173:REM"[141][147]"(null)
  170. 169 PRINT"[147][215]OLLEN [211]IE NOCH W[146]ARTEN, EINE N[146]EUE":PRINT"[193]NALYSE ODER ZUM [205]ENUE Z[146]URUECK (W/N/Z) ? [164]";:W=1:GOSUB193:W=0:GOSUB243:IFXX=1THENXX=0:GOTO169:REM"[141][147]"(null)
  171. 170 IFU$="N"THENBE=0:GOTO118:REM"[141][147]"(null)
  172. 171 IFU$="W"THENWS=10000:PRINT"[147]":GOSUB192:GOSUB192:GOTO169:REM"[141][147]"(null)
  173. 172 IFU$="Z"THENCLR:GR=1:GOSUB258:GOTO2:REM"[141][147]"(null)
  174. 173 GOSUB192:GOTO159:REM"[141][147]"(null)
  175. 174 OPEN2,8,2,LO$+",P,R":REM"[141][147]"(null)
  176. 175 X=X+1:INPUT#2,A$:IFX=NNTHENCLOSE2:X=0:RETURN:REM"[141][147]"(null)
  177. 176 GOTO175:REM"[141][147]"(null)
  178. 177 PRINT"[164][145]":LS$="":REM"[141][147]"(null)
  179. 178 GETI$:IFI$=""THEN178:REM"[141][147]"(null)
  180. 179 IFI$=CHR$(13)ANDLS$=""THEN178:REM"[141][147]"(null)
  181. 180 IFI$=CHR$(13)THENPRINT" ":I$="":RETURN:REM"[141][147]"(null)
  182. 181 IFI$<>CHR$(20)THEN186:REM"[141][147]"(null)
  183. 182 IFLS$=""THEN178:REM"[141][147]"(null)
  184. 183 IFLEN(LS$)=1THENLS$="":GOTO185:REM"[141][147]"(null)
  185. 184 LS$=LEFT$(LS$,LEN(LS$)-1):REM"[141][147]"(null)
  186. 185 GOTO190:REM"[141][147]"(null)
  187. 186 IFI$<" "THEN178:REM"[141][147]"(null)
  188. 187 IFI$=CHR$(32)THEN189:REM"[141][147]"(null)
  189. 188 IF(I$<"%"ANDI$<>"!")OR(I$>CHR$(122)ANDI$<CHR$(192))THEN178:REM"[141][147]"(null)
  190. 189 LS$=LS$+I$:IFLEN(LS$)>SZTHENPRINT"[157]";:LS$=LEFT$(LS$,SZ):REM"[141][147]"(null)
  191. 190 PRINTI$"[164][157]";:IFLEN(LS$)>=SZTHENLS$=LEFT$(LS$,SZ-1)+I$:REM"[141][147]"(null)
  192. 191 GOTO178:REM"[141][147]"(null)
  193. 192 PRINT"";SPC(13);"[194]ITTE WARTEN![144][146]":FORWW=0TOWS:NEXTWW:POKE198,0:RETURN:REM"[141][147]"(null)
  194. 193 GETU$:IFU$=""THEN193:REM"[141][147]"(null)
  195. 194 IFU$=<CHR$(35)ORU$>CHR$(95)THEN193:REM"[141][147]"(null)
  196. 195 PRINT"[157]";U$;:IFW=1ANDU$<>"W"ANDU$<>"N"ANDU$<>"Z"THEN193:REM"[141][147]"(null)
  197. 196 IFW=1THEN198:REM"[141][147]"(null)
  198. 197 IFU$<>"J"ANDU$<>"N"THEN193:REM"[141][147]"(null)
  199. 198 PRINT:RETURN:REM"[141][147]"(null)
  200. 199 FORWW=1TO600:NEXTWW:II=II-1:REM"[141][147]"(null)
  201. 200 PRINT"[145]";SPC(18);II;"[157]  ":FORWW=1TO600:NEXTWW:II=II-1:PRINT"[145]";SPC(18);II;"[157] [146]":FORWW=1TO600:NEXTWW:II=II-1:IFII=FWTHENRETURN:REM"[141][147]"(null)
  202. 201 GOTO200:REM"[141][147]"(null)
  203. 202 PRINTCHR$(14):POKE657,128:DC$="[196][193][212][193] [194][197][195][203][197][210][144]":POKE731,2:POKE8*4096+16,2:SYS730:POKE53281,1:POKE53280,1:PRINT"[147][144]";:ST$="  ************************************":SC$="                                       ":REM"[141][147]"(null)
  204. 203 NU$="[144]":ZU$=CHR$(19)+"":BE$="[145]   [215]IR FREUEN UNS AUF [201]HRE [194]ESTELLUNG![144]":DIMJS(59,6):FORI=826TO960:READB:POKEI,B:NEXT:DATA216,162,7,173,244,3,157,232,3,202,16,250,173,242,3,141,243,3:REM"[141][147]"(null)
  205. 204 DATA162,8,202,48,44,173,243,3,221,222,3,240,30,48,19,56,173,243:DATA3,253,222,3,141,243,3,173,245,3,157,232,3,76,78,3,173,244:DATA3,157,232,3,76,78,3,173,245,3,157,232,3,162,1,160,3,169:REM"[141][147]"(null)
  206. 205 DATA0,141,231,3,189,64,5,202,157,64,5,232,189,224,5,202,157,224:DATA5,232,232,224,160,208,4,32,176,3,96,238,231,3,173,231,3,201:DATA39,208,221,32,176,3,232,76,129,3,185,236,3,157,63,5,185,232:REM"[141][147]"(null)
  207. 206 DATA3,157,223,5,136,96,0,0,0:FORI=1TO59:FORJ=0TO6:READJS(I,J):NEXT:NEXT:FORI=0TO7:POKE990+I,INT(2^I):NEXT:DATA0,0,0,0,0,0,0,0,0,0,242,0,0,0:DATA0,224,0,0,224,0,0,0,40,254,40,40,254,40:DATA0,40,84,254,84,72,0,0,98,100,8,16,38,70:REM"[141][147]"(null)
  208. 207 DATA0,108,146,146,106,4,10,0,0,32,64,128,0,0:DATA0,56,68,130,0,0,0,0,130,68,56,0,0:DATA0,84,56,254,56,84,0,0,16,16,124,16,16,0:DATA0,0,2,12,0,0,0,0,16,16,16,16,16,16:DATA0,0,6,6,0,0,0,0,2,4,8,16,32,64:REM"[141][147]"(null)
  209. 208 DATA0,124,138,146,146,162,124,0,0,34,66,254,2,2:DATA0,70,138,138,146,146,98,0,68,130,146,146,146,108:DATA0,8,24,40,72,254,8,0,228,162,162,162,148,136:DATA0,60,82,146,146,146,12,0,192,128,142,144,160,192:REM"[141][147]"(null)
  210. 209 DATA0,108,146,146,146,146,108,0,96,146,146,146,148,120:DATA0,0,0,36,0,0,0,0,0,2,44,0,0,0:DATA0,16,56,108,198,130,130,0,40,40,40,40,40,40:DATA0,130,130,198,108,56,16,0,64,128,138,144,144,96:REM"[141][147]"(null)
  211. 210 DATA0,56,68,146,170,154,114,0,62,80,144,144,80,62:DATA0,130,254,146,146,146,108,0,56,68,130,130,130,68:DATA0,130,254,130,130,68,56,0,254,146,146,146,130,130:DATA0,254,144,144,144,128,128,0,56,68,130,146,146,92:REM"[141][147]"(null)
  212. 211 DATA0,254,16,16,16,16,254,0,0,0,130,254,130,0:DATA0,4,2,2,130,252,128,0,254,16,16,40,68,130:DATA0,254,2,2,2,2,2,0,254,64,48,48,64,254:DATA0,254,64,32,16,8,254,0,56,68,130,130,68,56:REM"[141][147]"(null)
  213. 212 DATA0,254,144,144,144,144,96,0,56,68,130,138,68,58:DATA0,254,144,144,152,148,98,0,100,146,146,146,146,76:DATA0,0,128,128,254,128,128,0,252,2,2,2,2,252:DATA0,224,24,6,6,24,224,0,254,4,24,24,4,254:REM"[141][147]"(null)
  214. 213 DATA0,198,40,16,16,40,198,0,0,224,16,30,16,224:DATA0,134,138,146,146,162,194,0:PRINT"  [215][197][210][194][197][205][193][212][144] (C)/(R) 1985 BY "DC$"":PRINTST$:PRINT"  *";SPC(34);"*":PRINT"  * [215]IR ZEIGEN [201]HNEN DIE INTERESSAN-[146] *":REM"[141][147]"(null)
  215. 214 PRINT"  * TESTEN [206]EUENTWICKLUNGEN AUS DEM [146] *":PRINT"  *        [200]AUSE "DC$"!       [146] *":PRINT"  *";SPC(34);"*":PRINTST$:PRINT" [202]EDE [214]ERLETZUNG DES [213]RHEBERRECHTS WIRD":PRINT"         STRAFRECHTLICH VERFOLGT!":REM"[141][147]"(null)
  216. 215 WS=0:GOSUB238:LO$="[166]XX.BM$MODULE#1":NN=200:GOSUB235:REM"[141][147]"(null)
  217. 216 POKE1012,32:PRINT"[147][175][175][175][175][175][175][185][185][185][185][185][185][162][162][162][162][162][162][184][184][184][184][146][162][162][162][162][162][162][185][185][185][185][185][185][175][175][175][175][175][175]":PRINT"[183][183][183][183][183][183][184][184][184][184][184][184][162][162][162][162][162][162][185][185][185][185][162][162][162][162][162][162][146][184][184][184][184][184][184][183][183][183][183][183][183][144]":FORI=55616TO55895:POKEI,2:NEXTI:POKE1013,36:WS$="DATA BECKER PRAESENTIERT:   ":REM"[141][147]"(null)
  218. 217 GOSUB233:POKE1013,122:WS$="DIE AKTUELLEN SOFTWAREHITS AUS DEN DATA BECKER LABORS >>>    ":GOSUB233:POKE1013,105:WS$="PORNOMAT (C) ":PRINTZU$"[194]EOBACHTEN [211]IE MIT [208][207][210][206][207][205][193][212][144] (C) [198]AUL-":PRINT"TIERE BEIM [204]IEBESSPIEL IN DEN [196][193][212][193]":REM"[141][147]"(null)
  219. 218 PRINT"[194][197][195][203][197][210][144] [204]ABORS!":PRINTNU$"[197]CHTE 30K IN SELBSTAUFLOESENDER [199]RAFICK!":PRINT"258,- ([196]ISKETTE)":FORWI=1TO3:GOSUB233:NEXTWI:WS$="PROTEKTOMAT (C) ":POKE1013,0:PRINTZU$"[196]ER [208][210][207][212][197][203][212][207][205][193][212][144] (C) LOESCHT SAEMTLICHE":REM"[141][147]"(null)
  220. 219 PRINT"EINGEGEBENEN [196]ATEN SOFORT UND SCHUETZT":PRINT"SIE SO VOR [205]ISSBRAUCH!":PRINTNU$"[196]AS IST PERFEKTER [210]UNDUMSCHUTZ UND EINE ":PRINT"[145]ECHTE "DC$" [201]DEE!":PRINT"                ":PRINT"99,- ([203]ASSETTE U. [196]ISKETTE)":REM"[141][147]"(null)
  221. 220 FORWI=1TO3:GOSUB233:NEXTWI:WS$="DATAMAT 2 (C) ":POKE1013,35:PRINTZU$"[196]IE [198]ORTSETZUNG DES ERFOLGREICHEN [196][193][212][193]-":PRINT"[205][193][212][144] (C)!";SC$;"               ":PRINTNU$"[202][197][212][218][212] [206][207][195][200][160][204][193][206][199][211][193][205][197][210]!                  ":REM"[141][147]"(null)
  222. 221 PRINT"[196]AFUER ABER [206][207][195][200] [212][197][213][210][197][210]!":PRINT"198,- (NUR [196]ISKETTE)       ":FORWI=1TO3:GOSUB233:NEXTWI:WS$="DESTRUKTOMAT (C) ":POKE1013,31:PRINTZU$"[218]ERSTOERT DIE [195][208][213] [201]HRES [195]64!           ":PRINT"[193]LLEINVERTRIEB DES 6510-[208]ROZESSORS:":REM"[141][147]"(null)
  223. 222 PRINTNU$;DC$;",[196]-[196]ORF (MIN. 45,- [196][205])       ":PRINT"[145]                        ":PRINT"[196]ER [196][197][211][212][210][213][203][212][207][205][193][212][144] (C) IST UMSONST!":FORWI=1TO3:GOSUB233:NEXTWI:WS$="SCRIPTOMAT (C) ":POKE1013,63:PRINTZU$"[196]AS WIRKLICH SICHERE [212]EXTPROGRAMM!":REM"[141][147]"(null)
  224. 223 PRINT"[211]IE ERHALTEN EINEN [203]UGELSCHREIBER UND":PRINTNU$"5 [194]LATT [208]APIER!                         ":PRINT"[145]"SC$:PRINT"15545,- ([193]USFUEHRUNG [195]ARTIER)":PRINT"15,45   ([193]USFUEHRUNG [199]EHA)       ":FORWI=1TO3:GOSUB233:NEXTWI:REM"[141][147]"(null)
  225. 224 WS$="MATOMAT (C) ":POKE1013,160:PRINTZU$"[205]EISTVERKAUFTES [213]TILITY! [200]AENGT AN":PRINT"JEDEN [198]ILENAMEN DIE [197]NDUNG '-MAT'!   ":PRINT"[145][199]LEICHZEITIG WERDEN [201]HRE [208]ROGRAMME DRAS-":PRINTNU$"[145][145]TISCH VERLANGSAMT ([215]ARTESCHLEIFENGENE-":REM"[141][147]"(null)
  226. 225 PRINT"RATOR), DER [214]ERKAUFSPREIS JEDOCH DRAS-":PRINT"TISCH BESCHLEUNIGT!          ":PRINTSC$:PRINT"104,- (NUR [196]ISKETTE)":FORWI=1TO3:GOSUB233:NEXTWI:WS$="FUTUROMAT (C) ":POKE1013,105:PRINTZU$"[196][193][211] [213]NIVERSALPROGRAMM! [215]AESCHT [201]HRE":REM"[141][147]"(null)
  227. 226 PRINT"[215]AESCHE; KOCHT [203]AFFEE; LIEST DIE  ":PRINT"[145][218]EITUNG VOR; BESORGT DEN [208]ARTNER FUER    ":PRINTNU$"[145][145]DIE [206]ACHT; HOLT [194]IER; HINTERZIEHT     ":PRINT"[211]TEUERN; ZEIGT DIE NEUESTE [205]ODE; ISST AM":REM"[141][147]"(null)
  228. 227 PRINT"[145]LIEBSTEN [195]URRYWURST!   ":PRINTSC$:PRINT"(IN [214]ORBEREITUNG)    ":FORWI=1TO3:GOSUB233:NEXTWI:WS$="     ":GOSUB233:PRINTCHR$(19);""SC$;SC$;SC$;NU$:PRINT"[145]"SC$:PRINTSC$;" ":PRINT"[145]"SC$:PRINT""SC$:PRINT"[145][145][145][145][145][145][145][145][145][145]"BE$:FD=1:REM"[141][147]"(null)
  229. 228 FORWI=1TO2:GOSUB233:PRINTBE$:NEXTWI:FD=0:WS=3000:GOSUB238:REM"[141][147]"(null)
  230. 229 PRINT"[147][215]OLLEN [211]IE NOCH W[146]ARTEN, N[146]OCHMAL [215]ER-":PRINT"BUNG ODER ZUM [205]ENUE Z[146]URUECK (W/N/Z) ? [164]";:GOSUB239:GOSUB243:IFXX=1THENXX=0:GOTO229:REM"[141][147]"(null)
  231. 230 IFU$="N"THEN216:REM"[141][147]"(null)
  232. 231 IFU$="W"THENWS=10000:PRINT"[147]":GOSUB238:GOSUB238:GOTO229:REM"[141][147]"(null)
  233. 232 IFU$="Z"THENCLR:GR=1:GOSUB258:GOTO2:REM"[141][147]"(null)
  234. 233 FORI=1TOLEN(WS$):FF=20:IFFDTHENFF=50:REM"[141][147]"(null)
  235. 234 EZ=ASC(MID$(WS$,I,1)):FORJ=0TO6:POKE1010,JS(EZ-31,J):SYS826:FORWW=1TOFF:NEXTWW:NEXT:NEXT:RETURN:REM"[141][147]"(null)
  236. 235 OPEN2,8,2,LO$+",P,R":REM"[141][147]"(null)
  237. 236 X=X+1:INPUT#2,A$:IFX=NNTHENCLOSE2:X=0:RETURN:REM"[141][147]"(null)
  238. 237 GOTO236:REM"[141][147]"(null)
  239. 238 PRINT"";SPC(13);"[194]ITTE WARTEN![144][146]":FORWW=0TOWS:NEXTWW:POKE198,0:RETURN:REM"[141][147]"(null)
  240. 239 GETU$:IFU$=""THEN239:REM"[141][147]"(null)
  241. 240 IFU$<CHR$(35)ORU$>CHR$(95)THEN239:REM"[141][147]"(null)
  242. 241 PRINT"[157]";U$;:IFU$<>"W"ANDU$<>"N"ANDU$<>"Z"THEN239:REM"[141][147]"(null)
  243. 242 PRINT:RETURN:REM"[141][147]"(null)
  244. 243 POKE211,10:POKE214,23:SYS58732:PRINT"[211]IND [211]IE SICHER (J[146]/N) ?";:REM"[141][147]"(null)
  245. 244 GETZ$:IFZ$=""THEN244:REM"[141][147]"(null)
  246. 245 POKE211,26:POKE214,23:SYS58732:IFZ$=""THENPRINT"(J[146]/N) ?";:XX=0:REM"[141][147]"(null)
  247. 246 IFZ$=""THENPRINT"(J/N[146]) ?";:XX=1:REM"[141][147]"(null)
  248. 247 IFZ$<>CHR$(13)THEN244:REM"[141][147]"(null)
  249. 248 IFXX=1THENPRINT"[144]";:RETURN:REM"[141][147]"(null)
  250. 249 POKE211,5:POKE214,23:SYS58732:PRINT"[211]IND [211]IE WIRKLICH[146] SICHER (J[146]/N) ?";:REM"[141][147]"(null)
  251. 250 GETZ$:IFZ$=""THEN250:REM"[141][147]"(null)
  252. 251 POKE211,30:POKE214,23:SYS58732:IFZ$=""THENPRINT"(J[146]/N) ?";:XX=0:REM"[141][147]"(null)
  253. 252 IFZ$=""THENPRINT"(J/N[146]) ?";:XX=1:REM"[141][147]"(null)
  254. 253 IFZ$<>CHR$(13)THEN250:REM"[141][147]"(null)
  255. 254 IFZ$=""THENXX=1:REM"[141][147]"(null)
  256. 255 PRINT"[144]";:RETURN:REM"[141][147]"(null)
  257. 256 POKE53281,1:POKE53280,1:PRINT"[144]";:ST$="  ************************************":PRINT"[147]  [214][197][206][212][213][210][197][205][193][212][144](C)/(R)1985 BY [196][193][212][193] [194][197][195][203][197][210][144]":PRINTST$:PRINT"  *";SPC(34);"*":PRINT"  *";SPC(34);"*":PRINT"  * [208]REPARE TO DIE IN [214][197][206][212][213][210][197][205][193][212][144](C)![146] *":REM"[141][147]"(null)
  258. 257 PRINT"  *";SPC(34);"*":PRINT"  *";SPC(34);"*":PRINTST$:PRINT" [202]EDE [214]ERLETZUNG DES [213]RHEBERRECHTS WIRD":PRINT"         STRAFRECHTLICH VERFOLGT!":WS=0:GOSUB88:PRINT"";:POKE44,8:POKE8*256,0:POKE731,0:SYS730:SYS8*4096+13:LOAD"[166]XX.BM$MODULE#14",8:REM"[141][147]"(null)
  259. 258 FORI=6TO0STEP-1:FORWW=1TO300:NEXTWW:POKE54296,I:NEXTI:RETURN:REM"[141][147]"(null)
  260.